home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / canonicalRIB / simpleAnimatableModels / Cone2.wwModel / animation.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  8.4 KB  |  134 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WindowTemplate
  7. iiii***@s@
  8. Animation controls
  9. Panel
  10.     Responder
  11. [10@]
  12. Matrix
  13. Control
  14. @:@iiii
  15. ButtonCell
  16. ActionCell
  17. Radio
  18.     Helvetica
  19. NXImage
  20. control_stop
  21. control_stopH
  22. control_play
  23. control_playH
  24. control_pause
  25. control_pauseH
  26. ff@@#::s
  27. NXradio
  28. NXradioH
  29. xRotate
  30. yRotate
  31. zRotate
  32. WWTextField
  33.     TextField
  34. WWTextFieldCell
  35. TextFieldCell
  36. &set ${shape}(heightAmt) %f; updateView
  37. set ${shape}(heightAmt)
  38.     heightAmt
  39. thetaMax
  40. &set ${shape}(radiusAmt) %f; updateView
  41. set ${shape}(radiusAmt)
  42.     radiusAmt
  43. $set ${shape}(zMinAmt) %f; updateView
  44. set ${shape}(zMinAmt)
  45. zMinAmt
  46. $set ${shape}(zMaxAmt) %f; updateView
  47. set ${shape}(zMaxAmt)
  48. zMaxAmt
  49. )set ${shape}(squashFactor) %f; updateView
  50. set ${shape}(squashFactor)
  51. squash
  52. *set ${shape}(stretchFactor) %f; updateView
  53. set ${shape}(stretchFactor)
  54. stretch
  55.     WWTTTimer
  56. @:diciffffc
  57. set ${shape}(height) [expr {$initialHeight + sin($PI * $u) * [set ${shape}(heightAmt)]}]
  58. set u [expr {$u + $uIncr}]
  59. synchWithScene
  60. uset initialHeight [set ${shape}(height)]
  61. set u 0
  62. set numberOfSteps 60
  63. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  64. set ${shape}(volumePreservingScaleFactor) [expr {$initialFactor + [expr {$initialFactor * [expr {sin($PI * $u)}] * [set ${shape}(squashFactor)]}]}]
  65. set u [expr {$u + $uIncr}]
  66. synchWithScene
  67. set initialFactor [set ${shape}(volumePreservingScaleFactor)]
  68. set u 0
  69. set numberOfSteps 60
  70. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  71. |set ${shape}(zMax) [expr {$initialZMax + cos($PI * $u) * [set ${shape}(zMaxAmt)]}]
  72. set u [expr {$u + $uIncr}]
  73. synchWithScene
  74. qset initialZMax [set ${shape}(zMax)]
  75. set u 0
  76. set numberOfSteps 60
  77. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  78. Rset ${shape}(xRotate) [expr {$u * 360.}]
  79. set u [expr {$u + $uIncr}]
  80. synchWithScene
  81. qset initialX [set ${shape}(xRotate)]
  82. set u 0
  83. set numberOfSteps 60
  84. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  85. set ${shape}(radius) [expr {$initialRadius + sin($PI * $u) * [set ${shape}(radiusAmt)]}]
  86. set u [expr {$u + $uIncr}]
  87. synchWithScene
  88. uset initialRadius [set ${shape}(radius)]
  89. set u 0
  90. set numberOfSteps 60
  91. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  92. aset ${shape}(thetaMax) [expr {[expr {1. - $u}] * 360.}]
  93. set u [expr {$u + $uIncr}]
  94. synchWithScene
  95. vset initialTheta [set ${shape}(thetaMax)]
  96. set u 0
  97. set numberOfSteps 60
  98. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  99. |set ${shape}(zMin) [expr {$initialZMin + sin($PI * $u) * [set ${shape}(zMinAmt)]}]
  100. set u [expr {$u + $uIncr}]
  101. synchWithScene
  102. qset initialZMin [set ${shape}(zMin)]
  103. set u 0
  104. set numberOfSteps 60
  105. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  106. Rset ${shape}(zRotate) [expr {$u * 360.}]
  107. set u [expr {$u + $uIncr}]
  108. synchWithScene
  109. Lset u 0
  110. set numberOfSteps 60
  111. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  112. Rset ${shape}(yRotate) [expr {$u * 360.}]
  113. set u [expr {$u + $uIncr}]
  114. synchWithScene
  115. set ${shape}(volumePreservingScaleFactor) [expr {$initialFactor + [expr {$initialFactor * [expr {sin($PI * $u)}] * [set ${shape}(stretchFactor)]}]}]
  116. set u [expr {$u + $uIncr}]
  117. synchWithScene
  118. radius
  119. File's Owner
  120. height
  121. controls
  122. [68@]
  123. IBOutletConnector
  124. IBConnector
  125. controlPanel
  126. IBControlConnector
  127. stop:
  128. start:
  129. pause:
  130. interp
  131. stopButton
  132. startButton
  133. pauseButton
  134.